home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / G / GEst.cpt / GEst 2 / card_4447.txt < prev    next >
Text File  |  1989-05-06  |  3KB  |  117 lines
  1. -- card: 4447 from stack: in
  2. -- bmap block id: 2331
  3. -- flags: 0000
  4. -- background id: 2722
  5. -- name: c
  6. ----- HyperTalk script -----
  7.  
  8. on mouseUp
  9.   global dollarRate,baudRate
  10.   if the short name of the target contains "3" then
  11.     answer "Please select a baud rate only."
  12.     set hilite of card button 3 to false
  13.   else
  14.     if short name of the target contains "4" then
  15.       answer "Please select a baud rate only."
  16.       set hilite of card button 4 to false
  17.     else
  18.       if the short name of the target contains "1" then
  19.         set hilite of card button 1 to true
  20.         set hilite of card button 2 to false
  21.         set hilite of card button 3 to true
  22.         set hilite of card button 4 to false
  23.         put .1 into dollarRate
  24.         put 1200 into baudRate
  25.       else
  26.         if the short name of the target contains "2" then
  27.           set hilite of card button 1 to false
  28.           set hilite of card button 2 to true
  29.           set hilite of card button 3 to false
  30.           set hilite of card button 4 to true
  31.           put .16666 into dollarRate
  32.           put 2400 into baudRate
  33.         end if
  34.       end if
  35.     end if
  36.   end if
  37.  
  38. end mouseUp
  39.  
  40.  
  41.  
  42. -- part 1 (button)
  43. -- low flags: 00
  44. -- high flags: 6006
  45. -- rect: left=195 top=77 right=94 bottom=214
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Button 1
  54.  
  55.  
  56. -- part 2 (button)
  57. -- low flags: 00
  58. -- high flags: 2006
  59. -- rect: left=195 top=99 right=116 bottom=214
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Button 2
  68.  
  69.  
  70. -- part 3 (button)
  71. -- low flags: 00
  72. -- high flags: 6006
  73. -- rect: left=194 top=136 right=153 bottom=213
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Button 3
  82.  
  83.  
  84. -- part 4 (button)
  85. -- low flags: 00
  86. -- high flags: 2006
  87. -- rect: left=194 top=160 right=177 bottom=213
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Button 4
  96.  
  97.  
  98. -- part 10 (button)
  99. -- low flags: 00
  100. -- high flags: A004
  101. -- rect: left=429 top=274 right=326 bottom=486
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 2162 / 2162
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Main Card
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   visual effect wipe right slowly
  113.   pop card
  114.  
  115. end mouseUp
  116.  
  117.